﻿<%
'''缓存类
Class AshapoCache
	
	'''构造
	Private Sub Class_Initialize()
	End Sub
	
	'''析构
	Private Sub Class_Terminate()
	End Sub
	
	'''通过驱动对外暴露缓存接口
	'p_dirver:驱动名
	'p_expire:缓存有效期（单位为秒）,为0表示永久有效
	'p_prefix:缓存标识前缀
	'p_length:限制缓存的数量
	Public Function Init(Byval p_dirver, Byval p_expire, Byval p_prefix, Byval p_length)
		Select Case p_dirver
		Case "Application"
			Set Init = New AshapoCacheDriverApplication
		Case "File"
			Set Init = New AshapoCacheDriverFile
		End Select
		Call Init.Init( p_expire, p_prefix, p_length )
	End Function
End Class
%>